﻿<!-- #include file="user.dll" -->
<%   
'使用该插件不得复制或转送他人等原因,如果发现，本人有权直接停止一切售后服务,不再更新！请尊敬本人劳动作品…技术Qq335660082 网址:yltdi.com
dim cpname,mydjis:userid=useid:ok=request("ok"):id=request("id"):zid=request("zid"):txtit=request("txtit"):if useid<>glusid and useid<>5 and useid<>8 then title="错误":yltdi.ctitle:ylt"对不起,你没有权限!<br/><a href='"&mys&"/index.asp?wap="&wap&"'>我的农场</a>":yltdi.out:yltdilc.yltditx:response.end:end if:if ok="" then title="农场管理后台":yltdi.ctitle:ylt"<a href='"&mys&"/admin.asp?ok=sz&amp;wap="&wap&"'>农场设置</a><br/>":ylt"<a href='"&mys&"/admin.asp?ok=sj&amp;wap="&wap&"'>商店管理</a>":end if
if ok="sz" then
title="农场设置":yltdi.ctitle:randomize:ranNum=int(10000*rnd)
ylt"播种经验:<input type='text' name='ssjl1"&ranNum&"' value='"&sszbzjl&"' size='5' emptyok='false' maxlength='3'/><br/>"
'ylt"收获经验:<input type='text' name='ssjl2"&ranNum&"' value='"&sszsgjl&"' size='5' format='*N' emptyok='false' maxlength='3'/><br/>"
ylt"铲除经验:<input type='text' name='ssjl3"&ranNum&"' value='"&sszccjl&"' size='5' format='*N' emptyok='false' maxlength='3'/><br/>"
ylt"劳动经验:<input type='text' name='ssjl4"&ranNum&"' value='"&sszcaocongjl&"' size='5' format='*N' emptyok='false' maxlength='3'/><br/>"
ylt"每天摘取:<input type='text' name='ssjl5"&ranNum&"' value='"&sszdqcs&"' size='5' format='*N' emptyok='false' maxlength='3'/>次<br/>"
ylt"每天破坏次数:<input type='text' name='ssjl6"&ranNum&"' value='"&sszphcs&"' size='5' format='*N' emptyok='false' maxlength='3'/><br/>"
ylt"每天可获经验:<input type='text' name='ssjl7"&ranNum&"' value='"&sszhyldjl&"' size='5' format='*N'  emptyok='false' maxlength='3'/><br/>"
ylt"开垦新地需<input type='text' name='ssjl8"&ranNum&"' value='"&sszkkxdb&"' size='10' format='*N'  emptyok='false' maxlength='10'/>币<br/>"
ylt"是否增送种子： <select name='ssjl11"&ranNum&"' value='"&ssfzszz&"'><option value='0'>否</option><option value='1'>是</option></select><br/>"
ylt"是否铲除时增送种子： <select name='ssjl12"&ranNum&"' value='"&sccsfzs&"'><option value='0'>否</option><option value='1'>是</option></select><br/>"
ylt"农币转入设置：<br/><input type='text' name='ssjl9"&ranNum&"' value='"&sszhlb&"' size='10' format='*N'  emptyok='false' maxlength='10'/><b>"&sszhbna&"</b>转1<b>农币</b><br/>"
ylt"要转换币的名称:<input type='text' name='ssjl0"&ranNum&"' value='"&sszhbna&"' size='10' emptyok='false' maxlength='10'/><br/>"
ylt"农币转出设置：<br/>是否打开农币成"&sszhbna&"： <select name='ssjl13"&ranNum&"' value='"&sfdklbzh&"'><option value='0'>否</option><option value='1'>是</option></select><br/>"
ylt"<b>1农币</b>转<input type='text' name='ssjl14"&ranNum&"' value='"&sszhsqb&"' size='10'  emptyok='false' maxlength='10'/><b>"&sszhbna&"</b>"
ylt"<anchor><br/>确认修改"
ylt"<go href='admin.asp?wap="&wap&"' method='post' accept-charset='utf-8'>"
ylt"<postfield name='ssjl1' value='$(ssjl1"&ranNum&")'/><postfield name='ssjl2' value='$(ssjl1"&ranNum&")'/><postfield name='ssjl3' value='$(ssjl3"&ranNum&")'/><postfield name='ssjl4' value='$(ssjl4"&ranNum&")'/><postfield name='ssjl5' value='$(ssjl5"&ranNum&")'/><postfield name='ssjl6' value='$(ssjl6"&ranNum&")'/><postfield name='ssjl7' value='$(ssjl7"&ranNum&")'/><postfield name='ssjl8' value='$(ssjl8"&ranNum&")'/><postfield name='ssjl9' value='$(ssjl9"&ranNum&")'/><postfield name='ssjl0' value='$(ssjl0"&ranNum&")'/><postfield name='ssjl11' value='$(ssjl11"&ranNum&")'/><postfield name='ssjl12' value='$(ssjl12"&ranNum&")'/><postfield name='ssjl13' value='$(ssjl13"&ranNum&")'/><postfield name='ssjl14' value='$(ssjl14"&ranNum&")'/><postfield name='ssjl15' value='$(ssjl7"&ranNum&")'/><postfield name='ok' value='oksz'/></go></anchor>"
ylt"<br/>注:<b>每天摘取次数</b>根据农场等级而定,比如设摘取次数为<b>5</b>,那么0级一天只能摘取<b>5</b>次,1级就可摘取<b>10</b>次,以此推算"
ylt"<br/><b>每天可获经验</b>只是限制每天除草除虫所得的经验."
ylt"<br/><b>是否增送种子</b>是指每天第一次进入农场,有机会增送种子(随机),80%机会."
ylt"<br/><b>铲除时增送种子</b>是指铲除枯萎时,有机会增送种子(随机),40%机会."
end if
if ok="oksz" then if request("ssjl1")="" or request("ssjl1")=False or request("ssjl2")="" or request("ssjl2")=False or request("ssjl3")="" or request("ssjl3")=False or request("ssjl13")="" or request("ssjl13")=False or request("ssjl14")="" or request("ssjl14")=False or request("ssjl5")="" or request("ssjl5")=False or request("ssjl6")="" or request("ssjl6")=False or request("ssjl7")="" or request("ssjl8")=False or request("ssjl8")="" or request("ssjl9")=False or request("ssjl9")="" or request("ssjl7")=False then:title="错误":yltdi.ctitle:ylt"各项必为纯数字<br/><a href='"&mys&"/admin.asp?wap="&wap&"'>返回农场管理</a>":else:title="农场设置":yltdi.ctitle:jlsss=""&request("ssjl1")&","&request("ssjl2")&","&request("ssjl3")&","&request("ssjl4")&","&request("ssjl5")&","&request("ssjl6")&","&request("ssjl7")&","&request("ssjl8")&","&request("ssjl9")&","&request("ssjl0")&","&request("ssjl11")&","&request("ssjl12")&","&request("ssjl13")&","&request("ssjl14")&","&request("ssjl15")&"":sql="update yltdi_sqlc_lcsz set yltdilcsz='"&jlsss&"' Where id=1":conn.Execute(sql):ylt"修改成功":end if:end if
if ok="sj" then title="商店管理":yltdi.ctitle:set rs=server.createobject("adodb.recordset"):sql="select * from yltdi_sqlc_sj order by mydj":rs.open sql,conn,3,3:if rs.bof and rs.eof then ylt"商店内还没有种子":else:ylt"产品名称/价格/等级/季节/时间/经验/收入<br/>":rs.pagesize =100:total  = rs.RecordCount:rs.absolutepage=page:mypagesize = rs.pagesize:dim i:i=1:do while not rs.eof and i<=mypagesize :zid=rs("id"):ylt""&(page-1)*100+i&".<a href='"&mys&"/admin.asp?ok=qx&amp;zid="&zid&"&amp;wap="&wap&"'>"&rs("cpname")&"</a>("&rs("cpjg")&"/"&rs("mydj")&"/"&rs("cpszje")&"/"&rs("cptime")&"【"&rs("sgjl")&"】"&int(rs("gscj")*rs("cpycs")*rs("cpszje"))&"农币)":ylt"<br/>":i=i+1:rs.movenext :loop :if int(page)<rs.pagecount then ylt"<a href='"&mys&"/admin.asp?ok="&ok&"&amp;page="&page+1&"&amp;wap="&wap&"'>下页>></a>":end if:if page>1 then ylt"<a href='"&mys&"/admin.asp?ok="&ok&"&amp;page="&page-1&"&amp;wap="&wap&"'>上页>></a>":end if:ylt"<br/>共"&total&"品种":end if:ylt"<br/><a href='"&mys&"/admin.asp?ok=tjsp&amp;wap="&wap&"'>添加商品</a>":end if
if ok="qx" then title="商店管理":yltdi.ctitle:zhongzis:ylt"种子名称:"&cpname&"<br/>生长季节:"&cpszje&"季<br/>种子出售价:"&cpjg&"<br/>等级:"&mydjis&"<br/>种子产量:"&cpycs&"个<br/>果实售价:"&cpjgs&"农币<br/>预计收入:"&int(gscj*cpycs*cpszje)&"农币<br/>所获经验:"&sgjl&"<br/>成熟时间:"&cptime&"小时":ylt"<br/><a href='"&mys&"/admin.asp?ok=xg&amp;zid="&zid&"&amp;wap="&wap&"'>修改商品</a>":ylt"<br/><a href='"&mys&"/admin.asp?ok=sj&amp;wap="&wap&"'>商店管理</a>":end if
if ok="tjsp" then
title="添加商店":yltdi.ctitle
ylt"添加商店<br/>种子名称:<input type='text' name='cpname' value='' size='10' emptyok='false' maxlength='10'/><br/>"
ylt"种子出售价:<input type='text' name='cpjg' value='' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"果实出售价格:<input type='text' name='cpjgs' value='' size='6' format='*N' emptyok='false' maxlength='5'/>币<br/>"
ylt"产品生长季节:<input type='text' name='cpszje' value='' size='5' format='*N' emptyok='false' maxlength='1'/><br/>"
ylt"等级:<input type='text' name='mydj' value='' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"产量:<input type='text' name='cpycs' value='' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"果实收获经验:<input type='text' name='sgjl' value='' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"成熟时间:<input type='text' name='cptime' value='' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"再次成熟时间:<input type='text' name='xcsj' value='' size='6' format='*N' emptyok='false' maxlength='5'/>只对多季节作物有效"
ylt"<anchor><br/>确认添加"
ylt"<go href='admin.asp?wap="&wap&"' method='post' accept-charset='utf-8'>"
ylt"<postfield name='cpname' value='$(cpname)'/>"
ylt"<postfield name='cpjg' value='$(cpjg)'/>"
ylt"<postfield name='mydj' value='$(mydj)'/>"
ylt"<postfield name='cpycs' value='$(cpycs)'/>"
ylt"<postfield name='cptime' value='$(cptime)'/>"
ylt"<postfield name='cpszje' value='$(cpszje)'/>"
ylt"<postfield name='xcsj' value='$(xcsj)'/>"
ylt"<postfield name='cpjgs' value='$(cpjgs)'/>"
ylt"<postfield name='sgjl' value='$(sgjl)'/>"
ylt"<postfield name='zid' value='"&zid&"'/>"
ylt"<postfield name='ok' value='oktj'/>"
ylt"</go></anchor>"
ylt"<br/><a href='"&mys&"/admin.asp?ok=sj&amp;wap="&wap&"'>商店管理</a>"
   end if
if ok="oktj" then if request("cpjg")="" or request("cpjg")=False or request("mydj")="" or request("mydj")=False or request("cpycs")="" or request("cpycs")=False or request("cptime")="" or request("cptime")=False or request("cpszje")="" or request("cpszje")=False then:title="错误":yltdi.ctitle:ylt"请输入纯数字":ylt"<br/><a href='"&mys&"/admin.asp?ok=sj&amp;wap="&wap&"'>商店管理</a><br/><a href='"&mys&"/index.asp?wap="&wap&"'>返回我的农场</a>":else:if request("cpszje")=0 or request("cpszje")>4 then title="错误":yltdi.ctitle:ylt"产品生长季节必须填写1至4之间的数字":else:title="添加成功":yltdi.ctitle:conn.execute("insert into yltdi_sqlc_sj (cpname,xcsj,sgjl,gscj,cpjg,mydj,cpycs,cptime,cpszje) values ('"&request("cpname")&"','"&request("xcsj")&"','"&request("sgjl")&"','"&request("gscj")&"','"&request("cpjg")&"','"&request("mydj")&"','"&request("cpycs")&"','"&request("cptime")&"','"&request("cpszje")&"')"):ylt"添加成功":ylt"<br/><a href='"&mys&"/admin.asp?ok=sj&amp;wap="&wap&"'>商店管理</a><br/><a href='"&mys&"/admin.asp?wap="&wap&"'>返回农场管理</a>":end if:end if:end if
    if ok="xg" then
title="商店管理":yltdi.ctitle:zhongzis:randomize:ranNum=int(10000*rnd)
ylt"种子名称:<input type='text' name='cpname"&ranNum&"' value='"&cpname&"' size='10' emptyok='false' maxlength='10'/><br/>"
ylt"种子出售价:<input type='text' name='cpjg"&ranNum&"' value='"&cpjg&"' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"果实出售价格:<input type='text' name='cpjgs"&ranNum&"' value='"&cpjgs&"' size='6' format='*N' emptyok='false' maxlength='5'/>币<br/>"
ylt"产品生长季节:<input type='text' name='cpszje"&ranNum&"' value='"&cpszje&"' size='5' format='*N' emptyok='false' maxlength='1'/><br/>"
ylt"等级:<input type='text' name='mydj"&ranNum&"' value='"&mydjis&"' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"产量:<input type='text' name='cpycs"&ranNum&"' value='"&cpycs&"' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"果实收获经验:<input type='text' name='sgjl"&ranNum&"' value='"&sgjl&"' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"成熟时间:<input type='text' name='cptime"&ranNum&"' value='"&cptime&"' size='6' format='*N' emptyok='false' maxlength='5'/><br/>"
ylt"再次成熟时间:<input type='text' name='xcsj"&ranNum&"' value='"&xcsj&"' size='6' format='*N' emptyok='false' maxlength='5'/>只对多季节作物有效"
ylt"<anchor><br/>确认修改"
ylt"<go href='admin.asp?wap="&wap&"' method='post' accept-charset='utf-8'>"
ylt"<postfield name='cpname' value='$(cpname"&ranNum&")'/>"
ylt"<postfield name='cpjg' value='$(cpjg"&ranNum&")'/>"
ylt"<postfield name='mydj' value='$(mydj"&ranNum&")'/>"
ylt"<postfield name='cpycs' value='$(cpycs"&ranNum&")'/>"
ylt"<postfield name='cptime' value='$(cptime"&ranNum&")'/>"
ylt"<postfield name='cpszje' value='$(cpszje"&ranNum&")'/>"
ylt"<postfield name='xcsj' value='$(xcsj"&ranNum&")'/>"
ylt"<postfield name='cpjgs' value='$(cpjgs"&ranNum&")'/>"
ylt"<postfield name='sgjl' value='$(sgjl"&ranNum&")'/>"
ylt"<postfield name='zid' value='"&zid&"'/>"
ylt"<postfield name='ok' value='okxg'/>"
ylt"</go></anchor>"
ylt"<br/><a href='"&mys&"/admin.asp?ok=sj&amp;wap="&wap&"'>商店管理</a>"
   end if
    if ok="okxg" then
if request("cpjg")="" or request("cpjg")=False or request("mydj")="" or request("mydj")=False or request("cpycs")="" or request("cpycs")=False or request("cptime")="" or request("cptime")=False or request("cpszje")="" or request("cpszje")=False then
title="错误":yltdi.ctitle:ylt"请输入纯数字":ylt"<br/><a href='"&mys&"/admin.asp?ok=sj&amp;wap="&wap&"'>商店管理</a><br/><a href='"&mys&"/index.asp?wap="&wap&"'>返回我的农场</a>"
else
if request("cpszje")=0 or request("cpszje")>5 then
title="错误":yltdi.ctitle:ylt"产品生长季节必须填写1至5之间的数字"
else
title="修改成功":yltdi.ctitle:sql="update yltdi_sqlc_sj set cpname='"&request("cpname")&"',xcsj="&request("xcsj")&",sgjl="&request("sgjl")&",gscj="&request("cpjgs")&",cpjg="&request("cpjg")&",mydj="&request("mydj")&",cpycs="&request("cpycs")&",cptime="&request("cptime")&",cpszje="&request("cpszje")&" Where id="&zid:conn.Execute(sql):ylt"修改成功"
   	   end if
end if
ylt"<br/><a href='"&mys&"/admin.asp?ok=sj&amp;wap="&wap&"'>商店管理</a>"
end if
    if ok<>"" then ylt"<br/><a href='"&mys&"/admin.asp?wap="&wap&"'>返回农场管理</a>":end if
 ylt"<br/><a href='"&mys&"/index.asp?wap="&wap&"'>返回农场</a>"
Public Function zhongzis():set rszs2=server.createobject("adodb.recordset"):sqlzs2="select * from yltdi_sqlc_sj where id="&zid:rszs2.open sqlzs2,conn,3,3:if rszs2.bof and rszs2.eof then cpnamess="":else:cpname=rszs2("cpname"):cpjg=rszs2("cpjg"):mydjis=rszs2("mydj"):cpycs=rszs2("cpycs"):cptime=rszs2("cptime"):cpszje=rszs2("cpszje"):end if:End Function
yltdi.out:yltdilc.yltditx%><!-- 蓝天农场插件,yltdi.com,	QQ:35660082 -->